home *** CD-ROM | disk | FTP | other *** search
/ Gigarom 1 / Gigarom Macintosh Archives (Quantum Leap)(CDRM1080320)(1993).iso / FILES / HYP / A-B / ButtonStax.cpt / Great Buttons / background_2667.txt < prev    next >
Text File  |  1989-02-26  |  5KB  |  248 lines
  1. -- background: 2667 from stack: in
  2. -- bmap block id: 3534
  3. -- flags: 4000
  4. -- background id: 0
  5. -- name: 
  6.  
  7.  
  8. -- part 1 (button)
  9. -- low flags: 00
  10. -- high flags: 8003
  11. -- rect: left=396 top=212 right=229 bottom=491
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 1
  15. -- font id: 3
  16. -- text size: 9
  17. -- style flags: 0
  18. -- line height: 12
  19. -- part name: Double-Click Me
  20. ----- HyperTalk script -----
  21. on mouseDown
  22.   global clickTick
  23.   put clickTick into temp
  24.   put the ticks into clickTick
  25.   if (clickTick - temp) < 100 then
  26.     answer "You double-clicked the mouse." with "OK"
  27.   end if
  28. end mouseDown
  29.  
  30.  
  31.  
  32. -- part 3 (button)
  33. -- low flags: 00
  34. -- high flags: 2000
  35. -- rect: left=38 top=192 right=233 bottom=80
  36. -- title width / last selected line: 0
  37. -- icon id / first selected line: 11370 / 11370
  38. -- text alignment: 1
  39. -- font id: 0
  40. -- text size: 12
  41. -- style flags: 0
  42. -- line height: 16
  43. -- part name: Import
  44. ----- HyperTalk script -----
  45. on mouseUp
  46.   --Bob Beichner assisted with this script
  47.   global fileName
  48.   ask "What file?"
  49.   put it into fileName
  50.   if fileName is empty then exit mouseUp
  51.   open file fileName
  52.   doMenu "New Card"
  53.   reader
  54.   close file fileName
  55. end mouseUp
  56.  
  57.  
  58. on reader
  59.   global fileName
  60.   repeat
  61.     read from file fileName until tab
  62.     if it is empty then exit reader
  63.     put it into field 1
  64.     read from file fileName until tab
  65.     put it into field 2
  66.     read from file fileName until return
  67.     put it into field 3
  68.     doMenu "New Card"
  69.   end repeat
  70. end reader
  71.  
  72.  
  73. -- part 4 (button)
  74. -- low flags: 00
  75. -- high flags: 8003
  76. -- rect: left=338 top=280 right=330 bottom=434
  77. -- title width / last selected line: 0
  78. -- icon id / first selected line: 1014 / 1014
  79. -- text alignment: 1
  80. -- font id: 0
  81. -- text size: 12
  82. -- style flags: 256
  83. -- line height: 16
  84. -- part name: Right
  85. ----- HyperTalk script -----
  86. on mouseUp
  87.   put "bkgnd button " & quote & "Left" & quote into B1
  88.   put "bkgnd button " & quote & "Right" & quote into B2
  89.   if name of me is B1 then
  90.     set name of me to "Right"
  91.     set icon of B2 to 1014
  92.     exit mouseUp
  93.   else
  94.     if name of me is B2 then
  95.       set name of me to "Left"
  96.       set icon of B1 to 1013
  97.     end if
  98.   end if
  99. end mouseUp
  100.  
  101.  
  102.  
  103.  
  104.  
  105.  
  106. -- part 6 (field)
  107. -- low flags: 01
  108. -- high flags: 0004
  109. -- rect: left=195 top=192 right=250 bottom=374
  110. -- title width / last selected line: 0
  111. -- icon id / first selected line: 0 / 0
  112. -- text alignment: 0
  113. -- font id: 0
  114. -- text size: 12
  115. -- style flags: 0
  116. -- line height: 16
  117. -- part name: 
  118.  
  119.  
  120. -- part 7 (button)
  121. -- low flags: 00
  122. -- high flags: 2000
  123. -- rect: left=84 top=193 right=232 bottom=120
  124. -- title width / last selected line: 0
  125. -- icon id / first selected line: 800 / 800
  126. -- text alignment: 1
  127. -- font id: 0
  128. -- text size: 12
  129. -- style flags: 0
  130. -- line height: 16
  131. -- part name: Export
  132. ----- HyperTalk script -----
  133. on mouseUp
  134.   global fileName
  135.   ask "What file?"
  136.   put it into fileName
  137.   if fileName is empty then exit mouseUp
  138.   open file fileName
  139.   writer
  140.   close file fileName
  141. end mouseUp
  142.  
  143.  
  144. on writer
  145.   global fileName
  146.   repeat with x=1 to the number of cards
  147.     write field 1 to file fileName
  148.     write field 2 to file fileName
  149.     write field 3 to file fileName
  150.     go to next card
  151.   end repeat
  152. end writer
  153.  
  154.  
  155. -- part 8 (button)
  156. -- low flags: 00
  157. -- high flags: A003
  158. -- rect: left=384 top=120 right=142 bottom=484
  159. -- title width / last selected line: 0
  160. -- icon id / first selected line: 0 / 0
  161. -- text alignment: 1
  162. -- font id: 0
  163. -- text size: 12
  164. -- style flags: 0
  165. -- line height: 16
  166. -- part name: Move Button
  167. ----- HyperTalk script -----
  168. on mouseUp
  169.   repeat 1 times
  170.     choose button tool
  171.     set dragSpeed to 200
  172.     drag from 49, 70 to 450, 70 with ShiftKey
  173.     drag from 450, 70 to 49, 70 with ShiftKey
  174.     choose browse tool
  175.   end repeat
  176. end mouseUp
  177.  
  178.  
  179.  
  180. -- part 9 (button)
  181. -- low flags: 00
  182. -- high flags: 0000
  183. -- rect: left=10 top=53 right=106 bottom=104
  184. -- title width / last selected line: 0
  185. -- icon id / first selected line: 32670 / 32670
  186. -- text alignment: 1
  187. -- font id: 0
  188. -- text size: 12
  189. -- style flags: 0
  190. -- line height: 16
  191. -- part name: Speed
  192. ----- HyperTalk script -----
  193. on mouseUp
  194.   answer "Nothing in this Button." with "OK"
  195. end mouseUp
  196.  
  197.  
  198.  
  199. -- part 10 (button)
  200. -- low flags: 00
  201. -- high flags: 8003
  202. -- rect: left=173 top=298 right=330 bottom=266
  203. -- title width / last selected line: 0
  204. -- icon id / first selected line: 0 / 0
  205. -- text alignment: 1
  206. -- font id: 3
  207. -- text size: 9
  208. -- style flags: 0
  209. -- line height: 12
  210. -- part name: Geneva
  211. ----- HyperTalk script -----
  212. on mouseUp
  213.   put "bkgnd button " & quote & "Chicago" & quote into B1
  214.   put "bkgnd button " & quote & "Geneva" & quote into B2
  215.   if name of me is B1 then
  216.     set name of me to "Geneva"
  217.     set textFont of B2 to Geneva
  218.     set textStyle of B2 to plain
  219.     set textSize of B2 to 9
  220.     exit mouseUp
  221.   else
  222.     if name of me is B2 then
  223.       set name of me to "Chicago"
  224.       set textFont of B1 to Chicago
  225.       set textStyle of B1 to bold
  226.       set textSize of B1 to 12
  227.     end if
  228.   end if
  229. end mouseUp
  230.  
  231.  
  232.  
  233.  
  234.  
  235.  
  236. -- part 11 (field)
  237. -- low flags: 80
  238. -- high flags: 0004
  239. -- rect: left=129 top=56 right=161 bottom=363
  240. -- title width / last selected line: 0
  241. -- icon id / first selected line: 0 / 0
  242. -- text alignment: 0
  243. -- font id: 3
  244. -- text size: 9
  245. -- style flags: 0
  246. -- line height: 12
  247. -- part name: Info
  248.